home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / QKeys⁄Tempo Hyper.cpt / QuicKeys accessories / card_3206.txt < prev    next >
Text File  |  1988-10-08  |  2KB  |  88 lines
  1. -- card: 3206 from stack: in
  2. -- bmap block id: 4206
  3. -- flags: 0000
  4. -- background id: 2686
  5. -- name: SetQuicText
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=22 top=78 right=299 bottom=365
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A000
  25. -- rect: left=395 top=100 right=151 bottom=449
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1000 / 1000
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: PostEvent
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to card "Tempo 1" of stack "PostEvent stack"
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 3 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=390 top=75 right=92 bottom=455
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: 
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   -- Store the string in a QuicKey (Command,Option,Shift T)
  56.   ask "Binding Cmd-Opt-Shift-T to:" with "hello world"
  57.   if it is empty then exit mouseUp
  58.   SetQuicText "CSO",17,it
  59.  
  60.   -- This is a Command-Option-Space. It will bring up the QuicKeys‚Ñ¢
  61.   -- Quick Reference Card in order to show the changed text key.
  62.   PostEvent "CO",49
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part contents for background part 19
  68. ----- text -----
  69. SetQuicText
  70.  
  71. -- part contents for card part 1
  72. ----- text -----
  73. SetQuicText is used to alter the contents of a QuicKeys text key. It has the following parameters:
  74.  
  75.     SetQuicText "modifiers", virtual-key, theText
  76.  
  77. The modifiers and virtual key parameters are explained in the PostEvent stack. Click on the PostEvent button for the details. theText is the text fragment that you wish the text key to represent.
  78.  
  79. One restriction - this routine doesn't create new text keys, it merely alters existing ones.
  80.  
  81. For a demo, create QuicKeys text key Cmd-Opt-Shift-T, and then click on the "T" button on the top right of this card. This will let you enter some text, apply it to the text key, and invoke the QuicKeys‚Ñ¢ Quick Reference Card to show that the change has taken effect.
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.